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SubJ: Virtue. Segments Article 



Since 1 wrote tfve S/W for Version 1.5, I have discovered how to get It 
working on Version I I 1 . 0 (and IV. (1 Is similar to 111.0 In this regard). 



On the Mlcroenglne version IV. fl there are no segment tables to load, so I 
played with the Segment Information Blocks (SIBs). These are described In 
the IV. 0 manual on page 34, and the format for the Mlcroenglne Is qlven 
b e I ow i 



SIB = record 
Segbase ! 
Seqlenq t 
xxx : 

Segaddr * 
Sequn I t i 
Segref i 
SegSP : 
end ; 



* I nt eger ; 
I nt eger ; 
Integer; 

I nt eger ; 

I n t eger ; 

I nt eqer ; 

I n t ege r | 



There Is a p-machlne register on the Mlcroenglne which Is a pointer to 
an ” a r r ay f seqr anqe 1 of *SIB", and the value of this register may be loaded 
Into the variable " p t r " with 
PMACHINE ( “ pt r , ( - 2 ) ,LPR , STO) 

where LPR * 157 and STO = 196. One can then mess with the SIR for 
segment 'I' with pt r * f II . f I e I dname , and this Is how I made Virtual Segments 
work on the Mlcroenglne; I assume that making It work under IV. Cl would be 
s Imi 1 ar . 



Here Is the article 
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Virtual Serrnent Procedures under UCSD Pascal 
by 

Jon Rondy 

Rox 14B, Ardmore, Pa, 19C103 

This article Is copyrighted by Microsystems (Box 1192, 
Mountainside, NJ , 070^2) and Is reprinted with their 
perml s s I on. 



One of the nice features of UCSD Pascal Is Its support of seqment 
procedures. A seqment procedure Is like any other Pascal orocedure except 
that whenever It is called (except for recursive calls) it Is loaded from 
disk Into memory prior to be l nq executed, and after It exits, the memory Is 
reclaimed. In fact, the seqment procedure Is loaded onto the stack, since 
the pattern of memo ry use Is nested In a very 'stack-1 Ike' manner. 

Secynent procedures allow the programmer to manaqe memory resources 
explicitly and conveniently, and really are a form of overlay. In large 
programs, It is not uncommon to dedicate a seqment procedure to 
Initialization, since that code need not reside In memory after the proqram 
starts. Seqment procedures may have Internal procedures and functions, all 
of which are loaded with the segment procedure code, allowing functional 
groups of routines to be brouqht into memory in a single operation, and 
executed. 



Unfortunately, UC( Pascal allows the programmer access *to only six seqment 
procedures under normal circumstances. This Is fine for small programs 
(under 3000 lines), but when one starts to get serious about an 
application, one really needs more segment procedures. One reason for this 
Is that the UCSD Pascal separate compilation construct (IJNITs) uses one of 
these 8 I x se gme nt procedure 'slots' even If It Is not loaded Into memo r y 
dynamically, wasting this scarce resource. This situation should Improve 
very soon (perhaps by the time .this article Is printed) because Softech is 
planning to announce features In UCSD Pascal Version IV. O to solve some of 
these problems. 

1 work for a company (Energy Data Systems) which has been trying to do some 
fairly complex applications in UCSD Pascal, and we ran into the 'segment 
barrier' In the spring of this year. We considered modifying the ICSD 
operating system, since we hod source for It, but decided to try to stick 
to solutions which required as few modifications to operating system code 
as possible. After some thought I came up with an Interim means of 
ameliorating the problem, which I will describe In this article. 

When a segment procedure Is called by the UCSD Pascal p-machlne, a special 
op-code is used to do so. This op-code first looks In an operstlnq system 
'segment table' to see If the Indicated procedure has been called more than 
zero times (reference count, In case It Is a recursive call and the code 
need not be reloaded). If It Is already In memory (reference count > 0), 
It Is executed like any other procedure; If not, the op-code looks In the 
segment table for the block number on the disk where It can find the code 
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for the se gme nt procedure, and the n umb er of bytes In the code. It then 
toads the code onto the stack and calls the procedure, Incrementing the 
reference count to one. Upon exit, the segment procedure return op-code 
decrements the reference count by one, and clears the stack back up to 
where It was prior to the call If the count has become zero. 

The Idea which 1 had was to somehow write data Into the segment tables 
prior to each segment procedure call In such a way that when the above 
op-code was Invoked It would find data describing different segment 
procedures each time; It would In fact be faked Into loadlnq different code 
segments Into memory for each call, even thouqh the SBme segment procedure 
was being called each time. 

In order to do this, 1 first had to find where the segment tables were 
located In memory. The first global variable declared in the tr^D Pascal 
operating system code is a pointer to a special record, called the system 
corrmun i ca t I on record, or SYSCTTvREC, and the seqment tables are a part of 
this record. There Is a special 'switch' In the l CSD Pascal c omo i I e r (the 
'U' switch), and when its value is programs function very differently 
than usual. The 'main program' does not execute at all, hut rather the 
first segment procedure declared in the program executes instead. Also, 
the variable definitions are 'aliased' on too of the definitions for the 
operating system (like an EQUIVALENCE In FORTRAN ) , allowing the program to 
read and write those variables. Usually, one uses exactly the same 
variable definitions as were used wh en the operating syst em wa s c omp lied, 
in order that one's proqram aqree with the operating system definitions. 
In this case, however, I simply made my own definitions, since all 1 wonted 
was to determine the value of the pointer to SYSOCMREC. Since '.6 stores 
pointers os actual memory addresses, hv printing the value of the pointer I 
could determine where in memory SYSFTTvREn wan stored. 



CO 

ro 



( 



! wrote the following program end was able to locate SYSOCM7EC. It was 

part trial and error, since after I thought I had 'found' 5Y5CCMTEC the 
first time, I was forced to ^ook through dumps to figure out why I had been 
wrong. . . Anyway , the program be I ow will tell you where I n memory any 
SYSOOM^EC Is under Version 1.5 (it Is at location 718 ^decimal! for my Z-flO 
version of 1.5), and probably under Version II. 0; I have not tried It with 
I 1 1 .0. 

I$u-i 

pr og r am find; 
var 

i : Integer; f aliased to "ayscomrec ) 

segment procedure flndsyscom; 
begin 

wr 1 t e 1 n ( ' 5y scomr ec is located at address decimal.'); 

end ; 

begin 

end . 

I then needed to flqure out how far from the start of SYSCCM7EC the segment 
tables started. Fortunately, the UCSO Pascal operating system variable 
definitions, found In a file called GLORALS . TEXT , were distributed with 
ICSD Pascal Versions 1.4 and 1.5, so 1 had them at my disposal. fThe 
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(2LORAI.S . TEXT file, along with all other UCSD Pascal source code, is 
cooyright by the University of California at San Diego; some of the 
OLORAL5 . TEXT file is presented In this article (the portions of Pascal 
source In capital letters) with the permission of Softech Microsystems Inc, 
their llcensee.l 1 am informed that the SYSOCMTEC data layout has not 
changed with the various UCSD Pascal Versions, so you should be able to 
locate the segment tables et 96 bytes past the start of your SYSOOftEC. 
This means that If one were to write to location B14 In my memory, one 
won I d b 1 writing on the first byte of the segment tables. 

The segment tables are defined as follows: 

type 

seqdesc = record 

dlskaddr : inteqer; ( absolute block number on disk 1 

codelenq : Integer; f In bytes ) 

end ; 

seqtab = array fsearanqel of record 

unit : unltnum; f disk unit number (an integer) ) 
codedesc : segdesc; f as above ! 
end ; 

where 'seqrange' Is the number of segment procedures defined for the UCSD 

system being used ('0..15' in the case of Version 1.5). If one declared a 

pointer ' segpt r ' whl ch pointed to a record of type 'seqtab', one could 
refer to that record as 'seqptr*', to the unit (disk drive) on which the 
code for the third segnent procedure was located as ' segpt r “ r ll . un i t ' , and 
to the number of bytes In the code for that nrocedure ns 



( 




i; • 



a eyp i r *>i.cuueueac.couelumj . uue cuuiu us i uu i i o n mu lui mu «<ihic m 
that pointer with the following record definition: 



var 

alias : record case boolean of 
true : (l : 1 nteger ) ; 

false: (p : * s egt ab ) ; 
end; 

This record definition states that one will either use the storage for the 
record 'alias' as an integer (denoted 'alias. I') or as a pointer to a 
variable of type 'aegtab' (denoted 'alias, p'). Since the some storaqe 1b 
used for both values, If one were to write Into the Integer part, one could 
then use that value as a pointer; one could 'fake' Pascal into thinking 
that a variable of type 'segtype' was being pointed to. 

By stating 'alias.! := 718 + 96', I could access the actual operating 

system segment table as 'alias. p"'. I could then write . into the Beqment 
table entries of any segment which I chose, forcing the system to load the 
code 1 wanted to when I called the appropriate procedure. 

Suppose, for Instance, that l knew that ! wanted to execute each of a 
series of ten segment procedures which were located on 'unitfll', had 
length 'lengthMl' bytes, and started at disk block n umb er ' b I o c k r I 1 ' . I 
could write a procedure to perform a 'call' to the i - 1 h ' such segment 
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procedure as follows: 
program test; 

type 

segdesc * record 

dlskaddr : inteqer; [ absolute block number on disk 1 
codelenq : Inteqer; f In bytes ) 

end ; 

seqtab « array fseqranqel of record 
unit : unltnum; f disk unit number ) 
codedesc : segdesc; f as above ] 
end ; 

var 

alias : record case boolean of 

true : (I : In t eqer ) ; 

false: (p : A s eg t ab ) ; 

end ; 

unit : arrayf1..10l of Integer; 

length : array!" 1..101 of Inteqer: 

block : a r rayf 1 . . J fD of integer; 

I : integer; 

segment procedure virtual } 

begin f need not have any code, since it will never execute -- 
the other ten segment procedures will execute instead ) 

end; f virtual 1 




procedure riovirtualO : integer); 




&' B &S£^&£BaL4h& f&al»^i?^e^£ 



( 




begin 

( set up to cat! virtual segment \ 
alias.p' , riOl.codeunit := unitTil; 
a ti as . p * r 1 01 . codedesc . code 1 enq := lengthTi!; 
a ! i as . p~ f 1 0 1 . codedesc . d i skaddr : = blockf-il; 
f call virtual segment loaded above 1 
virtual ; 

end ; f dov i r t ua 1 ) 

beg i n 

f set up pointer to real segment table 1 
alias, i : = 7 1 8 + 9 6 ; 
f call the ten virtual procedures 1 
for i : = l to 10 do do v i r t ua 1 ( i ) ; 
end . 1 test 1 

The above program will actually work, but it has a few problems which make 
it a bit awkward to use. First off, procedure calls which previously 

looked like a nice name now are reduced to a cryptic statement like 
' dov i r t ua 1 ( 3 ) ' . This can be taken care of by creating constants at the 
start of the program with values from l. to 10, and calling 'dovirtual' with 
those constant values; a procedure to clear the screen miqht then be called 
as ' do v i r t ua i (c 1 r screen )' , a significant improvement. 

The other problem is that it is NOT EASY to find out some of the 
information which I so casually stated would be found in the 'length' and 
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'block' arrays. To do so involves reading the 'segment table' of the code 
file in which one of the virtual segments exists,' In order to determine 
that information. Unfortunately, the disk address information stored in 
the segment tables of a code file is slightly different than that stored in 
the operating system's segment tables. The normal code file disk addresses 
are relative to the start of the entire code file; the system addresses are 
the absolute disk block number. This means that in order to convert the 
data in the code file's segment table into 'useful' information, we must 
also know the absolute address of the start of the code file. And in order 
to determine this, we must read (and understand) the directory of the disk. 
Whew! ... 

Taking it a step at a time, the format of a UCSD Pascal disk directory is 
given below. It is a portion of the UCSD GLORALS.TEXT file mentioned 
earlier (and is copyright by UCSD). 



CO 
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CONST 

PVXXLJNIT = 12; 
MAXD1R = 77; 
VIDLENG = 7; 
TIDLENG =15; 
FBLKSIZE = 512; 
DIRBLK = 2; 
M^XSEG = 15; 



DATEREC = PACKED RECORD 
MONTH; 0 . .12; 

DAY: 0 . .31; 

YEAR: 0..100 
END ( *DATEREC* ) ; 

UNITNLM = 0..MAXUNIT; 

VID = STRINGr VIDLENG! ; 

DIRRANGE = 0..MAXDIR; 

TID = STRINGf TIDLENG! ; 

FILEKIND = (UNTYPEDFILE,XDSKFILE,CODEFILE,TEXTFILE, 

I NFOF I LE , DATAF I LE , GRAFF I LE , FOTOF I LE , SECURED I R ) ; 

DIRENTRY = RECORD 
Of 1RSTRLK: INTEGER; 

DLASTRLK: INTEGER; 

CASE DFKIND: F 1 LEK I ND OF 
SECUREDIR, 

UNTYPEDF I LE : 

(DVID: VID; 

DEOVBLK; INTEGER; 

DNUMF I LES ; DIRRANGE; 

DLOADT I ME : 1 NT EGER ; 

DLASTBOOT: DATEREC); 

XDSKF I LE , OODEF I LE , TEXTF I LE , I NFOF I LE , 

DATAF I LE ,GRAEF I LE , FOTOF I LE : 

(DT ID: TID; 

DLAS TBYTE : 1 . .FBLKSIZE; 

DACCESS: DATEREC) 

END ( *DIR£NTRY* ) ; 

va r 

directory : a r r ay f d i r r ange ! of direntry; 

Given the above definitions, after a bit of studying we can see that each 
directory entry always contains the disk address (in blocks) of the first 
and last blocks of the file for which it is an entry. If the entry is a 
volume ID entry, it also contains the volume (diskette) name, the number of 
blocks on the volume ('deovblk'), the number of files on the volume 
( ' dnumf i 1 es ' ) and the time (date) when it was last accessed. Normally one 
finds this entry as the first entry in the directory (or ' d i r ect ory f 01 ' ) . 
If the entry is a normal file entry, it contains the file ID fnamel, the 
number of bytes in the last block which really contain data, and the date 



( *f IRST PHYSICAL DISK ADOR* ) 
(^POINTS AT BLOCK FOLLOWING* ) 



(*ONLY IN DIRf f)1 . . .VOLUME INFO*! 
( *NAME OF DISK VOLUME* ! 

(*LASTBLK OF VOUME*) 

(*NUM FILES IN DIR*) 

(*TIME OF LAST ACCESS*! 

( *MDST RECENT DATE SETTING* ! 



(♦TITLE OF FILE*! 

(*Nliv1 BYTES IN LAST RLQTK* ) 
( *LAST MODIFICATION DATE*) 



(*0 IMPLIES DATE NOT MEANINGFUL) 
( *DAY OF MDNTH* ) 

(*100 IS TEMP DISK FLAG*) 



(♦MAXIMUM PHYSICAL UNIT // FOR LREAD* ) 

( *MAX NUMBER OF ENTRIES IN A DIRECTORY*! 
( * NUMBER OF DHARS IN A VOLUME ID*) 

( *NLMRER OF CHARS IN TITLE ID*) 

(* STANDARD DISK BLOCK LENGTH* ) 

( *DI SK ADDR OF DIRECTORY*) 

( *MAX CODE SEGMENT NUMBER* ) 
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of the last modification to the file. The above definitions also tel! us 
where to find the directory, namely at 'dlrblk', or block two. 

We can read the directory Into memory with the statement 

uni t r ead (un i tnum,dl rectory, sizeof (directory), dlrblk); 

This statement uses two UCSD intrlnslcs, the 'sizeof' function Bnd the 
'unitread’ procedure. The former returns the number of bytes In a given 
data structure; in our case, it is the number of bytes In the 'directory'. 
The unitread' procedure reads from unit (disk drive) 'uni tnum' Into memory 
at the address of the 'directory' structure for ' a I zeo f ( d i r ector y ) ' bytes 
starting at absolute disk block 'dlrblk' 

With this Information In memory, we can search the directory for en entry 
for a given file. Suppose that we wanted to see if the flie ' s amp I e . code ' 
were In the directory. We could say 

mmfiles t = d I r ec t o r y f 0 1 . dntirif f I B"s ; I nirnber of valid entries ) 
i s = 0 ; f will Index Into directory 1 

done : * false; f will become 'true' when we are done ) 
while (i < numflles) and not done do beqln 
1 : = I ♦ 1 ; 

if ( d l r ec t or y T I 1 . d 1 1 d e ' s amp 1 e . code ' ) then done := true; 
end; 

I f we come out of this loop with 'done' having a value of 'true', then we 
have indeed found an entry for the required file; If not, the file was not 
present. If It was found, then the absolute address of the first block of 
the file on disk is simply ' d I r ect ory T I) . df I r s tb 1 k ' , We have then found 
the first thing we needed, the absolute disk address of' the code file. We 
now need to get the code length and relative disk address Information from 
I he code file's segment tables. 

The format of the first block of a code file Is as shown below, where the 
previous type definitions hold as before, 

segtable : arrayf segr angel of segdesc; 

If we wanted to find the necessary Information about a particular code 
file, we could use the UCSD Pascal system Intrinsic procedure 'unltread' to 
read the segment table data from that file Into the above data structure. 
Then, If we wanted the Information about the tenth segment procedure In a 
code file, we could simply use the tenth element of that array. For 
example, to determine the 'length' and 'block' data for segment procedure 
nirober ten In a file called ' s amp I e . code ' on unit five, one could do the 
foil owl nq : 
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program find; 
va r 

code f 1 1 e : f I 1 e ; 

segtable ; arrayf segranqel of segdesc; I 'seqdeBc' defined as before 1 

I ! 1 n t ege r ; 

begin 

un I t : = 5 ; 

f read In segment table -- assume 'directory' read In as above first, 
v and 'dlrectoryMV is data for file which is of interest to us ) 
un I t r ead( uni t , segtable, s l zeo f ( seqtab 1 e ) , dl r ectorf i 1 , df I r s tb I k ) ; 
length j = s egt ab 1 eT 1 0 1 . code I eng ; 

block := seqtableftnl.dlskaddr; ( relative block number 1 

block i= block + d I r ect or yf I 1 . d f I r s tb I k ; ( absolute block number ) 

end. I find 1 

So, we finally have the entire ball of wax. We can read a UCSD disk 
directory to find out where on disk a file Is stored; we can read and 
understand the Information in the segment table of a code file; we can 
convert the relative block numbers In the code . file seoment tables to 
absolute block numbers; and we can use that Information to Invoke virtual 
segment procedures. To tie everything together, you will find below a 
single program wh ich does It all. The procedure 'vlrtlnit initializes an 
Internal table of unit, length, and block Information before the oroqram 
really gets going. It does this by readlnq In the disk directory and 
calling 'virtllnk' for each virtual segment procedure which it will call 
later. The 'virtllnk' procedure looks In the directory for the code file 
requested and puts the required Information In the Internal table. The 
main program then Invokes the virtual seqments as a teBt. Following this 
program Is a sample of one of the programs which defines a virtual segment 
procedure. Note that In both the program which calls the virtual segment s 
and the program which defines one of them, the virtual seqments are defined 
as the first executable code in the file. This Is necessary, since the 
technique which I have shown requires that both segment procedures have the 
same 'segment numbers'. 



f 
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program vsegtes t ; 

CONST 

MAXLNI T = 17; 

MAXDIR » 77 | 

VIDLENG = 7} 

TIDLENG s 15; 

FBLKSIZE = 512; 

OIRBLK s 2; 

MAX SEG * 15$ 

TYPE 

OATEREC = PACKED RECORD 
MONTH: 0..12; 

DAY: n..31$ 

YEAR: 0..U10 
END ( *DATEREC* ) ; 

UNI TNLM = 0 . . MAXUN I T $ 

VID = STRING!” VIDLENG l $ 

DIRRANGE = O..MAXDIR; 

T ID = STRINGfTIDLENG); 

EILEklND = (UNTYPEDFILE,><DSKFILE,CODEF!LE,TF:XTF!LE, 
l NFOF I LE , DAT AF I LE , GRAFF I LE f FOTOF I LE , SECURED 1R ) $ 

DIRENTRY = RECORD 
DFIRSTRLK: INTEGER; 

DLASTRLK: INTEGER $ 

CASE DFKINO: F I LEK I ND OF 
SECURED1R, 

UNTYPEDFILE: 

(DV1D: V 1D$ 

DEOVRLK: INTEGER $ 

DNLMFILES: DIRRANGE; 

DLOADT I ME : I NT EGER $ 

OLASTROOT: DATEREC); 

XDSKF I I.E ,COOEF 1 LE , TEXTF 1 LE f I NFOF 1 LE , 

DATAF I LE f GRAFF I LE , FOTOF ! LE : 

(DT ID: T 1D$ 

DLASTBYTE : l . . FRLKS I Z E $ 

□ACCESS* DATEREC ) 

END ( *D f RENTRY * ) ; 

SEORANGE = O..MAXSEG; 

SEGOESC = RECORD 

DI SKADOR* -INTEGER; (* REL PLK IN CODE . . . ARS IN SYSCCM* ) 
CCOELENG: INTEGER (*ff BYTES TO READ IN*) 

END$ ( *5EGDESC* ) 

vseqranqe = 0..15; f virtual segment number ) 



(•FIRST PHYSICAL DISK ADOR* ) 
(•POINTS AT BLOCK FOLLOWING*) 



(•ONLY IN D l R r 0 1 . . * VOLUME INFO*) 
(•NAME OF DISK VOLUME*) 

(•LASTRLK OF VOLUME*) 

( *NUM FILES IN DIR*) 

(•TIME OF LAST ACCESS*) 

(•MOST RECENT DATE SETTING*) 



(•TITLE OF FILE*) 

( *NUM BYTES IN LAST FLOCK* ) 
(•LAST MODIFICATION DATE*) 



(*f) IMPLIES DATE NOT MEANINGFUL*) 
( *OAY OF MONTH* ) 

(*100 IS TEM 3 DISK FLAG*) 



(•MAXIMM PHYSICAL UNIT ft FOR UREAD* ) 
(*MAX NLMRER OF ENTRIES IN A DIRECTORY*) 
(•NUMBER OF CHARS IN A VOLUME ID*) 
'(•NUMBER OF CHARS IN TITLE ID*) 
(•STANDARD DISK BLOCK LENGTH*) 

(•DISK ADOR OF DIRECTORY*) 

(•MAX CODE SEGMENT NJMRER* ) 



f segment table In syscomrec and In this program 1 
aegtobtype = array fseqranqe) of record 
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qodeunlt * unltnumj 
codedeac : 9egdesc; 
end $ 

var 

al las : record case boolean of I al low manual setup of "syscomrec 1 
t rue : ( I * 1 nteger ) ; 

false: (p * * segt abt ype ) $ 

end j 

disk : file; f file to read directory and seg tables from ' 
f global In which to store processed seg tabie for later use l 
vsegs : segtabtype; 

’segment procedure virtual; 

begin wrlteln('l am the REAL segment procedure 10.'); 
end; ( virtual -- dummy 1 

procedure dovlrtual (vaeqn urn ; vseqrange); 
beg l n 

If ( v segs f va egnuml . codeun 1 t = (1) then begin 

wr l tel n( Attempt to execute unlinked virtual seg number ' , v s egnum, ' . ' ) ; 

ex I t ( dov l r t ua 1 ) ; ( not linked 1 

end; 

I load segment register 10 with segment data from I'th seqment procedure ' 

alias. p*fI0l : = va eqs f v s eqnuml ; 

virtual; 

end; f dovlrtual ) 
procedure vlrtlnlt; 

f Initialize tables for calllnq v sequent procedures ) 
cons t 

unum » 5; f unit number where v segment procs are found l 
var 

l : Integer; f t emp var ) 

directory : array fdlrrange) of dlrentry; f holds disk directory 1 
numflles * dlrrange; I number of files In disk dir 1 >. 

procedure v l r t 1 1 nk ( f name : string; vsegnum : vseqranqe): 
var 

i : 1 nteger ; 

done : boo 1 e an ; 

flrstblk t Integer; I blk n umb er of first blk of fake sen code file l 
Isegtable * array fseqranqe) of seqdesc; f holds aeq thl from disk 1 
begin 

f find file In directory ) 
l := 0; done := false; 

while (1 <= numflles) and not done do beqln 
1 := 1 + 1; 

If ( d 1 r ector y T | 1 . dt l d = fname) then done := true: 
end ; 

If not done then beqln 

wr l t e I n ( ' unab I e to find file ' , f name , ' . ' ) ; 
ex 1 t ( v i r 1 1 Ink); 
end ; 

wr 1 t e I n ( 'F l I e ' , fname, ' found.'); 
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f read in s e gme n t table ) 
firstblk : = directory! M.dfirstblk; 

uni tread(un um ,!segtable,sizeof(lseqtahle),firstblk); 

I enter data from segment 10 in found file into v scg table ) 
vsegs f vsegnuml . codeun i t := unum; 

vsegsf vsegnumT . codedesc . code! eng ; = 1 s eg t ab 1 ef 10 1 . code 1 eng ; 
v s egs f v s egnuml . c ode de s c * d i s kadd r : = ! s egt ab 1 e^ 1 0 1 . d i s kaddr + firstblk? 
wr i t e ! n ( 'F i n i shed with association of file ',fname, 
end; I v i r 1 1 i nk ) 

begin 

f initialize vseg table so that all units are zero (vseg undefined) 1 
for i is fl to 15 do vs egs f i 1 . codeun i t := 0; 

( set up pointer to syscomrec's seg table located by 'find' program I 
alias. i := 710 + 96: 1 96 bytes in syscom rec before seq tables 1 
f read directory into memory ) 

uni tread( unum , directory, sizeoffdi rectory), dirblk,0); 
numfiles := di rectoryT Ol . dnumf i 1 es ; 
wr i tel n( 'Oi rectory of unit ',unum,' read in.'); 
f link file names wi tb v seg numbers 1 
virtl ink( TAKEO.GCDE ' ,0) ; 
virtl i nk ( 'FAKE 1 .CODE ' , 1 ) ; 
virtl i nk( 'FAKE2.O0DE ',?.); 
virtl i n k ( ' F AKE 3 . COOE ' , 3 ) ; 
virtl ink( 'FAKE* .CODE ' , 4 ) ; 
v i r 1 1 i nk ( 'FAKE 5 .CODE ' , 5 ) ; 
virtl ink ( 'FAKE6.CODE' ,6); - 
virtl ink ( 'FAKE7.CODE' ,7); 
end ; 1 v i r t i n i t 1 

begin f ma in) 
v i r t i n i t ; 
dov i r tual (0) ; 
dovirtual (1); 
dov i r tua 1 ( 2 ) ? 
dovirtual (3); 
dov i r t ua I ( 4 ) ; 
dov i r tua 1 ( 5 ) ? 
dovi rtual (6) ; 
dov i r tual (7 ) ; 
end . 



program fakeO; 

s e gme nt procedure fakeOalso; 
beg i n 

Vvriteln('I think that ! am virtual seqment procedure 0.'); 
end ; 

begin f ma i n 1 
end . 





They looked for me. 

The wondered where I was. 

Was 1 operating a system, 

Was 1 processing a micro, 

Was I wearing hard; 

They wondered where I was. 

Was 1 listing to one side, 

Was l seeking to the end, 

Was I tracking down a bug; 

They wondered where l was, 

Was 1 terminally ill, 

Was 1 caught in a calm pile, 

Was 1 filing it away; 

They wondered where I was, 

Was I designing a principle, 

Was I comparing a language, 

Was l analyzing an algorlthim; 

They wondered where I was, 

And they checked out all their sums, 
They ordered high and low, 

They searched down all their nodes; 

And Stilt: 




They wondered where I was, 

They looked in all their tables, 

They opened all their ports, 

They raised up all their flags, 

All their searching failed, 

Their scanning ran to end, 

I wasn't in their banks, 

I'd slipped off all their discs; 

They decided that l wasn't, 

They gave up all their hope, 

They dried out all their boots, 
And cleaned out all their bins; 

1 wasn't marked upon their tapes, 
I was deleted in their files, 

1 had no sectors on their disc, 

I wasn't on their heap; 

Free to sme ! 1 the f 1 owe r , 

Free to see the beach, 

Free with all the power, 

Of a wet-core security breach. 
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